home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
REGISTER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
996b
|
44 lines
Program Register;
Uses Gentypes, Crt;
Var Reg:RegisterRec;
RF:File of RegisterRec;
S:String;
Name,Brd:String;
I:Integer;
Begin
CheckBreak:=False;
Clrscr;
TextAttr:=9;
Writeln ('ViSiON Registration Creation Utilition Thingy');
TextAttr:=12;
Writeln ('Written by: ME'); { Actually THE ELEMENTAL, but fuck you all! }
Writeln;
TextAttr:=10;
Writeln ('Enter SysopName (30 Characters): ');
TextAttr:=13; Readln (Name);
TextAttr:=10;
Writeln ('Enter BoardName: ');
TextAttr:=13; Readln (Brd);
TextAttr:=10;
Writeln ('Enter Serial Number: ');
TextAttr:=13; Readln (Reg.Serial);
{ Now for the Encryption PART! Kiss my Ass!! }
S:=Name;
For I:=1 to Length(Name) Do
S[I]:=Chr((Ord(Name[I]) XOR $12) + I);
Reg.Sysop:=S;
S:=Brd;
For I:=1 to Length(Brd) Do
S[I]:=Chr((Ord(Brd[I]) XOR $08) - I);
Reg.BoardName:=S;
Assign (RF,'ViSiON.REG');
Rewrite (RF);
Write (RF,Reg);
Close (RF);
End.